﻿Imports System.Data.SqlClient

Public Class SSISCatalog

    Private _catalogServer As String

    Public Sub New()

    End Sub

    Public Sub New(catalogServer As String)

        _catalogServer = catalogServer

    End Sub

    Public Property CatalogServer As String
        Get
            Return _catalogServer
        End Get
        Set(value As String)
            _catalogServer = value
        End Set
    End Property

    Friend Function connect() As SqlConnection

        Dim conRet As SqlConnection
        Dim sConStr As String = "Data Source=" & _catalogServer & ";Initial Catalog=SSISDB;Integrated Security=True;Application Name=LPExecutePackageTask"
        conRet = New SqlConnection(sConStr)

        Return conRet

    End Function

End Class
